home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Code Resources / Eclectic CDEFs / Celsius CDEF Folder / CalculateBarBoundary Folder / CalculateBarBoundaryIntf.p < prev   
Encoding:
Text File  |  1997-02-28  |  1.0 KB  |  40 lines  |  [TEXT/PJMM]
  1. {    CalculateBarBoundaryIntf    }
  2. {}
  3. {    Interface to the CalculateBarBoundary routine. Add this unit and the CalculateBarBoundary.lib library    }
  4. {    to the Celsius CDEF project and call the routine like:    }
  5. {}
  6. {        done := CalculateBarBoundary(inControlHdl, controlRect.left, controlRect.right)    }
  7. {}
  8. {    Copyright © Sebastiano Pilla 1996    }
  9. {    All rights reserved    }
  10. {}
  11. {    Credits: Chris Larson, Andrew Regan    }
  12.  
  13. unit CalculateBarBoundaryIntf;
  14.  
  15.  
  16. interface
  17.  
  18.  
  19. {    CalculateBarBoundary    }
  20. {}
  21. {    Determines where lies the right edge of the 'done' bar given the control's setting and the    }
  22. {    edges of the control's rectangle    }
  23. {}
  24. {    Entry:    inControlHdl = control to draw    }
  25. {            inControlBoxLeft = left edge of control    }
  26. {            inControlBoxRight = right edge of control    }
  27. {    Exit:    function result = right edge of 'done' bar    }
  28.     function CalculateBarBoundary (inControlHdl: ControlHandle;
  29.                                     inControlBoxLeft, inControlBoxRight: SInt16): SInt16;
  30.  
  31.  
  32. implementation
  33.  
  34.  
  35.     function CalculateBarBoundary (inControlHdl: ControlHandle;
  36.                                     inControlBoxLeft, inControlBoxRight: SInt16): SInt16;
  37.     external;
  38.  
  39.  
  40. end.